home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 December / 1987-12.d64 / power pause 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  33 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 print"[147][144]   copyright 1987 compute! pub., inc."
  3. 30 printtab(10)"all rights reserved"
  4. 40 forj=52992to53104:reada:x=x+a:pokej,a:nextj:reada:poke53105,a
  5. 50 forj=53106to53109:reada:x=x+a:pokej,a:nextj:reada:poke53110,a
  6. 60 forj=53111to53114:reada:x=x+a:pokej,a:nextj:reada:poke53115,a
  7. 65 forj=53116to53215:reada:x=x+a:pokej,a:nextj
  8. 70 ifx<>25623thenprint"error in data statements.":stop
  9. 80 sys 52992
  10. 90 print " power pause activated"
  11. 100 print " to pause, hit shift lock/restore"
  12. 110 print " to unpause, release the shift lock key"
  13. 120 data 120,173,0,3,141,129,207,173,1,3,141,130,207,173,22,3
  14. 130 data 141,156,207,173,23,3,141,161,207,173,38,3,141,144,207,173
  15. 140 data 39,3,141,145,207,173,24,3,141,218,207,173,25,3,141,219
  16. 150 data 207,169,66,141,0,3,169,207,141,1,3,169,0,141,222,207
  17. 160 data 88,96,72,169,131,141,38,3,169,207,141,39,3,169,155,141
  18. 170 data 17,208,173,0,221,41,252,9,3,141,0,221,173,24,208,41
  19. 180 data 2,9,20,141,24,208,169,8,141,22,208,169,4,141,136,2
  20. 190 data 169
  21. 200 data 11:rem border color
  22. 210 data 141,32,208,169
  23. 220 data 12:rem background color
  24. 230 data 141,33,208,169
  25. 240 data 0:rem text color
  26. 250 data 141,134,2,104
  27. 260 data 76,0,0,72,169,146,141,24,3,169,207,141,25,3,104,76
  28. 270 data 0,0,72,173,222,207,208,68,238,222,207,169,0,141,22,3
  29. 280 data 169,0,141,23,3,165,1,72,169,55,133,1,169,253,141,0
  30. 290 data 220,173,1,220,234,205,1,220,208,247,201,127,208,13,173,1
  31. 300 data 220,234,205,1,220,208,247,201,255,208,243,169,0,141,222,207
  32. 310 data 169,127,141,0,220,104,133,1,104,76,0,0,104,64,0,170
  33.